﻿<AttributeUsage(AttributeTargets.Class, AllowMultiple:=True, Inherited:=False)> _
Public NotInheritable Class MenuItemAttribute
    Inherits Attribute

    Public Property Category As String

    Public Property ItemText As String

    Public Property OnEditForm As Boolean = True

    Public Property ClickHandler As String

    Public Sub New(ByVal category As String, _
                   ByVal itemText As String, _
                   Optional ByVal onEditForm As Boolean = True, _
                   Optional ByVal clickHandler As String = "")

        Me.Category = category
        Me.ItemText = itemText
        Me.OnEditForm = onEditForm
        Me.ClickHandler = clickHandler

    End Sub

End Class
